home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / partialfreememdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  318 b   |  22 lines
  1. program PartialFreeMemDemo;
  2.  
  3. type
  4.   Vector = array [0 .. 1023] of Integer;
  5.   VecPtr = ^Vector;
  6.  
  7. var
  8.   p, q : VecPtr;
  9.  
  10. begin
  11.   GetMem (p, 1024 * SizeOf (Integer));
  12.   q := VecPtr (@p^ [512]);
  13.  
  14.   { ... }
  15.  
  16.   FreeMem (p, 512 * SizeOf (Integer));
  17.  
  18.   { ... }
  19.  
  20.   FreeMem (q, 512 * SizeOf (Integer));
  21. end.
  22.